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*v04=-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
NLY IN ago NCE WITH THE TERMS OF SUCH Tht i oe ae E 


*® ca 
® * 
*® ea 
°* ® 
°® * 
** te 
°® " 
® T oa 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
** * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
** * 
*® % 
*® * 
*® 7 
** oa 
°* 4 
°® * 
** * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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it 
FACILITY: VAX=11 MACRO assembler. 
: ABSTRACT: 


The VAX-11 MACRO assembler srone rs2 7. a MACRO=Se source code into object 


lat 
; modules for input to the VAX-11 LIN 


: HISTORY: 


; AUTHOR: 
3 Peter Yuo, 25-Apr-77: Version 01 


: ; MODIFIED BY: 


V03-001 MTROO28 Mike Rhodes 4-Mar-1983 
Change L* references to shareable image to G*. 


: : 02-16 PCG0010 Peter George Sep-08-1981 
Push R7 at subroutine calls. 


; 02-15 PCG0008 Peter George | Aug-27-1981 
: Rewrite all floating point routines. 


: 01-4 Peter Yuo, 3-Jun-77 


; VERSION: 01 
| 
| 
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01-11 Benn Schreiber, 2-May-78 

01-12 Benn Schreiber, 19-SEP-78, Implement rounding for MACRO32 

01-13 R. Newland, 18-Oct-1979, Implement G_floating and H_floating support 
1-14 R. Newland, Saat 1 4 1 New message codes 


1-15 R. Newland, 13-Jan-1980, Trap floating oveflow when rounding floating 
point number. 


-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 01 of FORSFCNVIR 


; 01-4 Add code to handle optional scale factor and digits in fraction 

; 01-5 Fix bug in scale factor introduced in 01-4. Also shorten code 

: Fix bug in calculating S if there is a scale_factor 

“8 Fix bug in calculating S. If exponent field éxists in input 

P factor should be spores. 

-9 Fixed bug in calculating S in order to take care of oveflow napgensd. 
-10 Change order of parameters to conform to standard. JMT 15-Feb-/78 

-11 Modify to work with VAX MACRO assembler 
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AX/VMS Macro V04-00 Page | 
4 .SBTTL DECLARATIONS | 
; INCLUDE FILES: | 
0 0; | 
8 91 ; MACROS: 
3 3 
00 G 
00 94 SMAC_SYMBLKDEF 3; Define symbol block offsets 
8 95 SMAC_CTLFLGDEF ; Define control flags 
38 SMAC_GENVALDEF ; Define general values 
000 9 SMAC_GRAMMARDEF ; Define terminal grammar symbols 
0000 98 SMAC_INTCODDEF ; Define int. buffer codes 
4 99 SMAC_INTCODDEF ; Define int. buffer codes 
4 100 PRDEF ; Define operand descriptor bits 
000 101 SMACASGDEF ; Define message codes 
0000 106 SSSDEF ; Define status codes 
0000 10 
0000 104 ; 
0000 105 ; PSECT DECLARATIONS: 
0000 106 ; 
4 107 
0000000 108 -PSECT MACS$RO_DATA,NOEXE ,NOWRT,GBL,LONG 
0000 109 ; 
9009 110 OTS_cvT: 
00000000" 0000 111 «ADDRESS OTSSCVT_T_F ; Addresses of text to floating point 
00000000 0004 iN ADDRESS OTSS$CVT_T_D 3; conversion routines 
00000000" 0008 11 «ADDRESS OTSS$SCVT_T_G 
00000000" 4 13 «ADDRESS OTSS$CVT_T_H 
00000000 116 .PSECT MACS$RO_CODE_P1,NOWRT,GBL,LONG 
0000 117 | 
0000 118; 
44 13 ; EQUATED SYMBOLS: 
94 121 ; The following symbols are used to indicate the bit position of the flag 
000 1 § 3; register. 
gone 3s | 
00000000 0900 125 V_DEC_POINT = 0 ; Flag bit: 1 if decimal point is seen 
00000001 0000 1 : M~DECPOINT = *x01 ; Mask for V_DEC_POINT 
i448 1 808 1 V_EXP_LET = : flog bit: T if exgonent is seen | 
00000002 128 M_EXP_LET = *x02 3; Mask for V_EXP_LE | 
000 180 | 
$500 131 ; The following macro is used to store the current character in the temporary | 
3 ! § ; buffer, to increment the buffer length, and to get the next character. 
0 134 
135 «MACRO GETCHR 
1 § MOVB R10, (R4)+ ; Move character to TMPBUF 
1 INCL (R35 : Increment string size 
3 138 BSBW MACSGETCHR ; Get next character 
00 1; eENDM GETCHR 
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y0L-000 MACSREADFLOAT ; {D,.E.F,G) format text r 5-SEP-1984 §F 88:9? ERACRO SRE FLOAT.MAR; 1 . 
148 -SBTTL MACSREADFLOAT ; {D,E,F,G) format text reading routine 
144 534+ 
197 ; FUNCTIONAL DESCRIPTION: 
09 123 : This routine copies teat tng point text from the input file, 
00 138 $ into a temporary buffer. It then calls the appropriate RTL 
i 149 ; conversion routine to convert the text into the appropriate 
4 130 3 internal floating point representation. 
$000 13 3; INPUT PARAMETERS: 
0090 122 3 MACSGL_CVTADDR The address of the appropriate RTL routine to call. 
000 156 ; OUTPUT PARAMETERS: 
000 157; 
000 158 ; MAC$GQ_VALUEQ Contains the result. 
0000 159; 
0000 160 ; COMPLETION CODES: 
0000 161 ; 
0000 16 : RO 0 error in heating point syntax 
0000 163; 1 good floating point number 
0000 164; 
0000 165 ;-- 
0000 166 
0000 167 MACSREADFLOAT:: 
0000 168 
55 D4 0000 169 CLRL R5 3; Clear flags 
53 0000'CF 9E Bae 170 MOVAB W*MACSAB_TMPBUF ,R3 ; Set TMPBU pointer 
04 A308 a 9E 000 171 MOVAB =8(R3),4(R3) ; and string descriptor pointer 
6 D4 000C 7 LRL (R3) ; Initialize string size to zero 
54 08 Ad’ 9E it 107 MOVAB 8(R3),R4 ; and set output pointer 
20 SA 91 0012 175 SIGN:  CMPB R10, #*A/-/ : Is current char a ‘'="" sign? 
05 13 001 176 BEQL SIGN_CONT ; Branch if yes 
2B «SA 91 =«20017~—S—s«177 CMPB R10, #*A/+/ : Is current char a ‘'+'' sign? 
08 12 OO1A 178 BNEQ DEC_PT ; No, branch to decimal point test 
001C 179 SIGN_CONT: 
001C 180 GETCHR ; Yes, get next character 
0024 181 
0024 135 DEC_PT 
2 SA 91 8 4 18 CMPB R10, #*A/./ ; Is current char a ‘'.''? | Se 
0B 12 Q027 184 BNEQ DIGIT LOOP ; No, branch to check if it is a digit 
55 01 88 8 9 185 BISB #A_DEC_POINT, RS : Set decimal point encounted flag 
02C 186 GETCHR ; Get next character 
0034 187 
034 188 DIGIT_LOOP: 

56 SA OA 5 4 +94 MOVZBL R10,R6 : Copy char for destruction fe 
56 30 ¢ 7 SUBL #*A/0/, R6 ¢ R6 = ASCII (current_char) = ASCII('0") 
o-a\9 O3A 191 BLSS NOT_DICIT ; If lss then not a digit a 
09 6 D1 003C 138 CMPL R6, # : Check if current char is a digit 

0A 1A O03F 19 BGTRU NOT_DIGIT : Branch if it is a digit 
Ret 194 DIGIT_CONT: 
41 195 GETCHR ; Get next character | 
—E9 11 94 138 BRB DIGIT_LOOP ; Check if it is a digit 
0048 198 NOT_DIGIT: 
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v04-000 MACSREADFLOAT ; {D,E,F,G) format text r mets 7 §F 08:97 EMACRO SRE FLOAT.MAR; 1 ° 
2E «SA OQ] 8 199 CMPB R10, t A/./ ; Check if current char is a ‘’."’ 
$6 1s ef 0 BNEQ EXP : No, process exponent 
54 55 ‘ 05 1 BBSS av BEC POINT. R5S,ERROR ; If second decimal point, then error 
EB 1 B22 ¢ BRB DIGIT_CON ; Get next digit 
Bee 4 EXP_LET: 
3255 01 E2 0056 5 BBSS WV_EXP_LET,RS,CONVERT ; If exponent already preceseed, 
OSA 86 ; Then finished reading number 
55 g1 88 OO5A 0 BISB #M_DEC_POINT,R5 : tag decimal point as seen 
44 BF A 91 05D 98 CMPB R10,4°R/D/ ; 
1E 13 0061 9 BEQL EXP_SIGN ; Process exponent sign 
45 8F SA 91 Bees 10 CMPB R10, #*A/E/ ee 
18 13 6 11 BEQL EXP_SIGN ; Process exponent sign 
51 8F 5A 91 0069 \¢ CMPB R10,#*A/Q/ ke 
12 13 Q06D 21 BEQL EXP_SIGN ; Process exponent sign 
64 BF SA 91 O06F 14 CMPB R10, #*A/d/ ; eT 
0c 13 0073 15 BEQL EXP_SIGN ; Process exponent sign 
65 8F SA 91 0075 16 CMPB R10, #*A/e/ 3; ‘er 
06 13 0079 sit BEQL EXP_SIGN ; Process exponent sign 
71 *28F 5A 91 0078 18 CMPB R10, #*A/q/ s a’? 
0B 12 OO7F 219 BNEQ CONVERT ; No exponent, so finished 
0081 220 
0081 221 EXP_SIGN: 
0081 $56 GETCHR : Get next character 
FF860=s 31 Boee $57 BRW SIGN ; Process sign character 
008C 228 CONVERT: 
0000'CF 7C 008C 26 CLRQ W*MAC$GQ_VALUEQ ; Clear value 
OO00'CF 7C 0090 227 CLRQ W*MAC$GQ_VAL2 
01 ODD 0094 228 PUSHL #1 ; Ignore spaces 
00 DD 0096 229 PUSHL #0 
00 bdD 0098 230 PUSHL #0 
QOOOO'CF 9F QO9A 231 PUSHAB W*MACS$GO_VALUEO ; Address to put output 
53 DD 009 $36 PUSHL 3 falls descriptor address 
0000'DF 05 FB OOA 23 CALLS #5,aW*MACSGL_CVTADDR ; Call i" ,eenvereren routine 
1A 50 €8 OOAS 234 BLBS RO,FINI ; OK if 
OOA8 235 
QOOA8 236 ERROR: 
OOOO'CF 7C QOAB 237 CLRQ W*MAC$GQ_VALUEQ ; Set result to zero 
0000'CF 7C OOAC 238 CLRQ W*MACS$ 2 
00B0 239 SINTOUT_LW INTS_ERR,<#MACS_FLTPNTSYNX,W°MACSGL_LINEPT> ; Issue error 
50 D4 00C0 40 CLRL RO : Flag an error 
00C 41 
0c g FINI: ‘ 
58 22 9A O0C 4 MOVZBL #DINTEGER,R8 ; Return token is DINTEGER 
05 00C 244 RSB 


——_—_——— 
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v04-000 FLOATING POINT LITERALS SEP-1984 MACRO.SRCJFLOAT.MAR; 1 (4) 
bce ¢$ ~SBTTL FLOATING POINT LITERALS 
C6 48 ; 
ace 23 ; These routines are called to process floating point literals. 
C6 «051 
bce 26 MACSGETFLOAT:: 
QOO00000'GF DE 00C6 5 MOVAL G*OTSSCVT ; Load address of RTL routine 
0000' CF 0 CC 9254 W°MACSGL CVTABDR 
FF2E a CF 55 BSBW MACSREADFLOAT ; Call input and conversion routine 
0 it 2$ RSB 
i 58 MACSGETDOUBLE:: 
O0000000'GF DE 00D 59 MOVAL G*OTSSCVT_T_D ; Load address of RTL routine 
0000' CF 0009 260 WeMACSGL FCVTABOR 
FF21 30 OQODC 61 BSBW rey, READ ; Call input and conversion routine 
OOOO'CF DO OODF $6 MOVL MAC$GL tALS, - ; Copy upper Longword of value 
0000' CF Q0E3 6 W°MACSeL “HIGH. 32 
05 O0E6 64 RSB 
00E7 65 
00E7 66 MACSGETGFLOAT:: 
QO000000'GF DE O0E7 67 MOVAL G*OTSS$CVT_T_G ; Load address of RTL routine 
0000'CF OOED 68 W*MACSGL CVTABDR 
Prob 30 pore 69 BSBW MACSREADFLOAT ; Call input and conversion routine 
OOOO'CF DO OOF 70 MOVL W*MAC$GL_VAL3.- : Copy upper longword of value 
0000' CF OOF? 71 WeMACSeL™ “HIGH! 32 
05 OOFA i; RSB 
OOFB 4 
QOFB 274 MACS$GETHFLOAT:: 
Q00000000'GF DE O0FB $3 MOVAL G*OTSS$CVT_T_H ; Load address of RTL routine 
0000 'CF 0101 76 W*MACSGL CvTAbDR 
FEF9 30 0104 £277 BSBW MACSREADFLOAT : Call input and conversion routine 
O000'CF D0 0107 $e MOVL W*MACS$GL_VAL3,- : Copy upper longword of value 
0000' CF 0108 79 “MACS$GL_HIGH_32 
QOOOO'CF 7D 010 280 mMOVQ W*MAC$GQ_VAL2,- ; Copy upper quadword of value 
0000'CF 011 281 W*MACS$GQ- HIGH_64 
05 011 see RSB 
0116 28 
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v04- FLOATING POINT DIRECTIVES -SEP-1984 01:48:1 MACRO.SRCJFLOAT.MAR; 1 
i ~SBTTL FLOATING POINT DIRECTIVES 
8: FLOAT, DOUBLE, GFLOAT, and HFLOAT are called to process 
89 ; the .FLOAT, .OOUBLE, .G_FLOAT, and .H_FLOAT directives, 
90 ; respectively. 
/ 
38 FLOAT:: ;DATA_STAT = KFLOAT 
57 DD 94 PUSHL R7 : Save R7 
57 04 00 95 MOVL #ROXSV_FLOAT,R7 ; Indiate data type 
3 36 BRB GET_FLT_ARGS ; Join common code 
98 DOUBLE: : ;DATA_STAT = KDOUBLE 
57 DD 99 PUSHL R7 : Save R7 
57 05 00 00 OVL #ROXS$V_DOUBLE ,R7 ; Indiate data type 
OE 11 9} BRB GET_FLT_ARGS ; Join common code 
08 GFLOAT:: ;DATA_STAT = KGFLOAT 
57 DD PUSHL R7 3; Save R7 
57 06 00 MOVL #RDXSV_GFLOAT,R7 : Indiate data type 
07 «(11 BRB GET_FLT_ARGS ; Join common code 
HFLOAT:: ;DATA_STAT = KHFLOAT 
57 oD PUSHL R7 3; Save R7 
57 07 00 MOVL #RDXSV_HFLOAT,R7 ; Indiate data type 
00 «(11 BRB GET_FLT_ARGS ; Join common code 


; Loop until the end-of-Line, reading floating point numbers. Emit 
; code to pass 2 to stack the value, and if double precision, also 
3; stack the high order 32 bits. 


GET_FLT_ARGS: 
BICL2 
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5 04 CA #4,R7 ; Calculate RTL routine address 
57 $7 06 78 ASHL #2,R7,R7 
0000'CF 0000'C DO MOVL W*OTS_CVT(R7) ,W*MACSGL_CVTADDR 
FEBD' 30 10$: BSBW MACSSKIPSP : Skip any spaces 
FEBA 30 BSBW MACSREADFLOAT ; Read floating point text 
SINTOUT_LW INTS_STIL,<W*MACSGL_VALUE> ; Output bits 0-31 
SINC_PC #4 ; Count them 
57 03 TSTL R7 3; Is it FLOAT? . 
+ eee BEQL 20% ; Yes, then done outputing value 
SINTOUT_LW INTS_STIL,<W*MACSGL_VAL3> |; Output bits 32-63 
SINC_PC #4 ; Count them 
oc 57 01 CMPL~ R7,#<RDXSV_HFLOAT-RDXSV_FLOAT>*#4 ; Is it HUGE? 
19 «+12 BNEQ 2 ; No, then done Sytpus ing value 
$0 SINTOUT_LW INTS_STIL cuomacsca_vALg+> ; Output bits 64-95 
7 SINTOUT_LW INTS_STIL,<W*MAC$GQ_VAL2+4> ; Output bits 96-127 
+H SINC_PC #8 ; Count them 
FE77" 30 3 208: BSBW nacsee iPse ; Skip spaces 
OD SA 91 CMPB R10,4CR 3; End of Line 
1A 13 C BEQL 4 : Yes if EQL 
2c SA 91 8E CMPB R10,#*A/,/ 3; No--comma? 
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if eql yes 

No--get error code 

Issue error to pass 2 

Skip to comma or eol 

Skip to end of Line? 
f eql yes--all done 
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LGSM~RPTIRP 
LGSM~SEQF IL 
GSM~SKAN 

L 
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FLGSV~ 
FLGSV~CHKLPND 
FLGSV~COMPEXPR 
FLGSV~CONT 
FLGSV~CRF 
FLGSV~CRSEEN 
FLGSV~DATRPT 
FLGS$V~DBGOUT 
FLGSV~DLIMSTR 


V~ENDMCH 
FLGSV~EVALEXPR 

SV~EXPOPT 

FLGSV-EXTERR 


G$V—MOREARG 
GS$V"MORE INP 


80000000 
00000000 
0 01 
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R 04 
RG 04 


| 

| 

RG 04 | 
| 

RG 04 | 
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0000139 
0000000 
0000000 
0000000 
0000000 
0000000 | 
0000000 | 
0000000 | 
90000004 | 
259000 | 
$50900 
0000014 | 
9000000 | 
00003A | 
000015 
$00008 | 
800000 | 
001 | 
§0000009 | 
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Symbol table 1 MACRO.SRCJFLOAT.MAR; 1 5) 


] 
| 
| 
INTS_OP = 000 13 KDOUBL.E = 9 
INTS~OR = 0000000 KDSABL : 6 | 
INTS"PRIL = 1A KENABL 2 5 | 
INTS“PSECT = 900000i¢ KENDC = 0000006E 
s = 
INTS“REDEF = 00 09 1D KENDM = 00000088 | 
INTEREST . 0900 OIF KENTRY = 86 0 3 | 
= = 
INTS_SAME = 29000 9 KERROR = $00 71 | 
INTS“SBTTL = $0000091 KEXTRN = 90000080 | 
s Ss 
FLAG = 00 KFIELD = A 
tas = B900088 a = 8900008 
¢ = 00000054 KGFLOAT = 90000081 
0 = 00000095 KGLOBL = 90000056 
3 = 000000 KHFLOAT = 0000008 
L = 000000 KIDENT = 0000006A 
i = 000000 KIF = 00000046 
= 00000099 KIFF = 00000048 
6 = 0000009A KIFT = 00000049 | 
= 00000028 KIFTF = 0000004A | 
= 0000009¢ KIIF = 00000047 
= 00000090 KINCLUDE = 0000005F 
= 00000084 KIRP = 00000048 
= 0000002¢ KIRPC = 0000004¢ 
= 000000 KLIBRARY = 00000060 
= 9000002F KLINK = 00000085 
= 00000081 KLIST = 90000061 
= 90000052 KLONG = 0000003C 
= 000000 KMACRO = 00000050 
= 00000030 KMCALL = 00000051 
= 00000056 KMDELETE = 00000084 
= 0000003 MEXIT = 90000052 
= 0000000A KNARG = 0000006 
= 00000039 KNCHR = 00000066 
= 00000038 KNCROS = 0000007A 
= 000000 KNLIST = 00000062 
= 000000 KNTYPE = 00000076 
= 9000003 KOCTA = 00000083 
= 00000033 KODD = 0000005¢ 
= 00000078 KOPDEF = 90000075 
= 00000034 KPACKED = 90000056 
= 00000035 PAGE = 0000006 
a tdtirt KPeeet = b09n0068 | 
= 90000041 SOURS = bop000se | 
= 00000042 REF 1 = 90000060 | 
a sttiitad rere  pogno0eE 
= 000 43 KREF4 = 0 of j 
= 00000080 KREFS = 90000070 
= 00000044 KREPT . 4p | 
~ é KRESTORE : 6 
= ; KSAVE + 8 
S KSBTTL = | 
: 55 SGNB = 9090007¢ 
= 00000078 KSGNW : 7D | 
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/ KTITLE = 99 9 OPDSM_MODIFY = 00 9 40 
KVECTOR s 4 OPD$M-NOT_ 32F = 
KWARN = OPDSM_READ = 0 
KWEAK = 00 C OPDSM-VIELD = 0 
KWORD z 9 5 OPDSM-WRITE = 8 
KXFER : OPD$S—MODE = 
L = 8 00004 OPD$S_SIZE = 005 
LSTSK_BUFSIZ = 00000086 OPD$V_D_FLOAT = 00 2000 | 
LSTSK_L_P_PAGE = 000000 ¢ OPD$V-FCOAT = 00 06 F 
LSTSK-TITCE SIZ = 000000 OPD$V-G_FLOAT = 00000000 
MACSAB_TMPBOF eereeree =X 04 OPD$V_H- FLOAT = 0000 ORe 
MACSERRORLN eeeeeeee =X 04 OPD$V_MODE = 9909 90 
MACS$GETCHR eeereeee§ =X = 04 OPD$V-SIZE = 0 
MACSGE TDOUBLE 000000D3 RG 04 OPFSM-LASTOPR z 90002000 | 
MACSGETFLOAT QO0000C6 RG 04 OPFSM_OPTEXP = 00001000 
MACSGETGFLOAT QO0000E? RG 04 OPF$V~LASTOPR = 00000000 | 
MACSGETHFLOAT QOOOO00FB RG 04 OPF$V-OPTEXP = 0000000C 
$GL_CVTADDR teeeeeee xX 04 OTS$CUT_T_D aeeeeeee =X 03 | 
MACSGL_HIGH 32 eeeeeeee =X 04 OTS$CVT_T_F aeeeeeee xX 03 
MACSGL—LINEPT eeenenee X04 OTS$CVT"T7G eeeeeeee X03 | 
MACSGL_PC eeeeeeee = X 04 OTS$CVT_T-H aeeneree § X 03 
MACSGL_VAL3 eeeneree xX 04 OTS_CV 00000000 R 03 
MACSGL_VALUE eeeeeeee =X 04 PSCSB_NAME 00000004 
MAC$GO_VALUEO eeeeeeee =X 04 PSC$B_SEG 0000000c | 
C$GQ"HIGH_64 eeeenere =X 04 PSC$B_UNUSED 90000008 
MAC$GQ_VAL2 eeeeeeee =X 04 PSCS$K_BLKSIZ 9000001 
MAC$GQ-VAL eeeeeeee = X 04 PSC$K_NO_OPTNS = 0000000A 
MACSINTERR_2_LW eeeeeeee =X 04 PSCS$L_CURLOC 0000000F 
CSINTOUT-1_LW aeeeeeee =X 04 PSC$L_LINK 00000000 
MACSREADFLOAT 00000000 RG = 04 PSC$L_MAXLGTH 00000005 
MACSSKIPSP aeeenere =X = 04 PSCS$M_ABS = FFFFFFF? 
MACSSKP_OPR aeeeeeee = X 04 PSCSM_ALIGNFLG = 00004000 
MACS_FLTPNTSYNX = 00709082 PSC$M_ALLOPTNS = 000003FF 
MACTRT = 00000000 PSCSM_BYTE = 00004000 
MAC_SUBSYS = 00000070 PSC$M_CON = FFFFFFFB 
ME = 00000041 PSC$M_DEF AULT = 0000018 
MD = 0000C048 PSC$M_EXE = 000000C0 
Mi = 00008044 PSC$M_GBL = 00000010 
MG = 0000A048 PSCSM_LCL = FRFFFFEF | 
MH = 00009050 PSC$M_LIB z 90000002 | 
ML = 00000044 PSCSM_LONG = 0000480 
MO = 00000050 PSCSM_NOEXE = FFFFFFBF 
ma = 0000004 PSC$M_NOPIC = FRFFFFFE | 
Mu = 9900004 PSC$M_NORD = FFFFFFCF | 
M_DEC_POINT = 9 PSCS$M_NOSHR = FFFFFFDF 
M-EXP-LET = 960006 2 PSC$M_NOVEC = FFFFFDFF | 
NOT_DIGIT 0000048 R 04 PSCSM_NOWRT 2 pPrrrert | 
0 = 0000001 PSCSM_OVR 2 90000 0% 
OBJ$K_BUF SI = 00 9 PSCS$M_PAGE z 96066 0 
OPD$SM_ ADDR = 00 0 PSCSM_PIC = 00000001 | 
$_B8B s 90 00A1 PSC$M_QUAD = 00004 
$H_ 2 00C¢ PSC$M_RD = 0000 
OPDSM_D_FLOAT = ¢ PSCSM_REL = 00 9 3 
OPDSA~G_FLOAT = 000A PSCSRTUSR > PRrFFEED | 
L = = 
OPD$M~H~ FLOAT = 9 PSCSM_VEC = 0200 | 
OPDSACAODE = 00000SE PSESR-UORD = 0000800 | 
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Symbol table -SEP=1984 01:48:17 CMACRO.SRCJFLOAT.MAR:1 (3) | 
PSCSM_WRT s 0 180 YMSM_LOCAL : 04 | 
PSC$S ALIGNMENT 2 é SYMSM~ODBG = 40 | 
PSC$V-ALIGNFLG : E YMSM-REF 2 | 
PSCSV"ALIGNMENT s A SYMSM~RELPSECT = 0 
PSCSVEXE = 00000006 YMSMSUPR 2 4 
C$V_GBL = i 4 SYMSM_WEAK = 0 
PSC$V"LIB : 00 1 SYMSM-XCRF = 1 
PSCSV~OVR = 0 900 0 YMSV"AB = 000 0004 
PSCSV~PIC = 9000600 YNSVASN = 90000008 | 
PSCSV~RD = 0000000 SYMSV~CRFO = 00000000 
PSCSV"REL = 00000005 SYMSV “DEBUG = 00000005 
PSeRV Oe = $0900009 SYASV-DELMAC = $0990009 
PSCSV"WRT = 00000008 $V~EPT = 00000009 
PSCSW7FLAG 00000009 SYMSV~EXTRN = 00000003 
PSC$W~OPT IONS 00000000 SYM$V~GLOBL = 00000002 
Q = 00000008 SYMSV~LOCAL = 00000006 
RB = 90000021 MS$V"ODBG = 0000000A 
RD = 0000C028 YMSV-REF = 00000007 
RDXSV_BINARY = 00000000 SYMSV-RELPSECT = 00000008 
ROXSV~DEC IMAL = 90000002 YMSV~SUPR = 0000000E 
RDX$V~DOUBLE = 0000000 SYMSV~WEAK = 00000001 
RDXSVFLOAT = 00000004 SYMSV-XCRF = 0000000C 
RDX$V~GFLOAT = 00000006 SYMSW~FLAG 00000009 
RDXSVHE X = 0000000 TAB = 00000009 
RDXSV"HFLOAT = 00000007 vB = 00000081 
RDX$V~OCTAL = 00000001 vd = 00000088 
REGS_PC = 0000000F VF = 00008084 
RF = 00008024 VG = 0000A088 
RG = 0000028 VH = 00009090 
RH = 00009030 VL = 00000084 
RL = 00000024 vO = 00000090 
RO = 00000030 va = 00000088 
RO : 90000028 vd = 90000082 
RRREG = 00000031 V_DEC_POINT = 0000000 
Rid = 00000022 V7EXPTLET = 00000001 
SEMI = 000000 8 W = 00000002 
SIGN 00000012 R 04 WB = 00000061 
SIGN_CONT 0000001C R 04 wD = 00000068 
STBSR_PG MISS = 0000000A WF = 00008064 
SYM$B_NARE 0 004 WG = 0000A068 
SYMSB~SEG 0 00¢ WH = 00009070 
SYMSB~TOKE 0 08 WL = 00000064 
SYMSK~BLKSIZ 0 000 = 0000007 
SYMSK~MAXLE = F = 0000006 
ferre * Bois : Beane 
SYMS$L_VAL 0 p 2 = 00080000 
SYMSM~ABS : 0 
SYMSH~ASN s 1 
SYMSM~CRFO = 9 
SYMSM~ DEBUG = 0 
SYMSM~ DEF = 1 
SYMSM~DELMAC = 
SYMSM~EPT 2 
SYMSM~EXTRN z 
SYMSM~GLOBL = 4 


MACSFLOAT 
Psect synopsis 


' Psect synopsis ! 
teoccece eeecccece + 


PSECT name Allocation PSECT No. Attributes 

ABS 08080008 ( 0.) 00 ¢ 0.) NOPIC USR CON 
. BLANK . Ba8 00 ¢ g:3 1¢ 1.) NOPIC USR CON 
SABSS 44 1 ae, * 8 ( ef NOPIC USR CON 
MACSRO_DATA 8 0001 ( 18. 8 ( -) NOPIC USR CON 
MACS$RO_CODE_P1 OOOO1AC (¢ 428.) 04 ( 4.) NOPIC USR - CON 


+ 
H Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 31 00 100200 .03 00:00:00.92 
Command processing 103 00:00:00.33 Ba? 80: £-08 
Pass 1 303 00:00:06.16 0:00:24.8 
Symbol table sort 0 00:00:01.01 00:00:02.69 
Pass 78 00:00:01.17 00:00:06.44 
Symbol table output 64 B080. 00°05 00:00:02.16 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output 0 00:00:00.00 a Se 
Assembler run totals 584 00:00:09.06 00:00:39.15 


The working set Limit was 1500 pages. : 

56202 bytes (110 pages) of virtual memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space allocated to hold 1047 non-local and 4 
3 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

19 pages of virtual memory were used to define 15 macros. 


! Macro Library statistics ! 
tome esen oes ec ene oe seen eee eas + 


_$255$DUA28 : [MACRO.OBJ JMACRO.MLB; 1 13 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 4 
TOTALS (all Libraries) 17 


1217 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FLOAT/OBJ=OBJ$:FLOAT MSRC$:FLOAT/UPDATE=(ENH$: FLOAT) +L1B$:MACRO/LIB 


x 
FLOATING POINT INPUT CONVERSION ROUTINE 16-SEP-1984 02:04:55 
3 Epa 9be bF:ebs4? t 


ABS LCL NOSHR NOEXE 
REL LCL NOSHR’ EXE 
ABS LCL NOSHR EXE 
REL GBL NOSHR NOEXE 
REL GBL NOSHR- EXE 


e. 
local symbols. 


AX/VMS Macro v04-00 
MACRO.SRCJFLOAT.MAR;1 


eg 
RD WRT NOVEC BYTE 


RD NOWRT NOVEC LONG 
RD NOWRT NOVEC LONG 
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